Public Function OddEven(ByVal Number As Integer) As Integer
  ' Przeznaczenie: Funkcja ta zwraca warto 1, jeli liczba jest nieparzysta,
  '      oraz 0 w przeciwnym razie.
  '
  ' Argumenty:
  '  Number   Testowana liczba cakowita
  '
  ' Zwracana warto:
  '  Integer   1 - argument nieparzysty, 0 - parzysty
  '
  OddEven = Number Mod 2
End Function
Pierwsza linia 
